home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 031a / winsweep.zip / WINSWEEP.FRM (.txt) < prev    next >
Visual Basic Form  |  1991-10-30  |  8KB  |  145 lines
  1. Form1
  2. %WinSweep 1.3 - (c)1991 Nils Segerdahl
  3. """"""
  4. Form1
  5. Picture1
  6. """"""
  7. Text2
  8. Command1
  9. &Save
  10. Command3
  11. &Delete
  12. Command4
  13. &Copy
  14. Command5
  15. Command2
  16. &Quit
  17. Command6
  18. Drive1
  19. Text1
  20. File1
  21. Command1_Click
  22. File2_Clicka
  23. File2_KeyUp
  24. KeyCode
  25. Shift
  26. Drive1_Change
  27. Dir1_ChangeL
  28. Text1_Changew
  29. file2=
  30. pathO
  31. drive1A
  32. driveE
  33. file1
  34. File1_Click
  35. text1
  36. textj
  37. filename
  38. textstring
  39. ring5
  40. txtstr
  41. Command2_Click
  42. Text1_KeyDown\
  43. Text1_LostFocus
  44. Elsef,
  45.     Panicking
  46. resps
  47. Picture1_Click
  48. text2
  49. Picture2_Click
  50. textstr
  51. dotpos
  52. instring
  53. Command3_Click
  54. Command4_Click
  55. prmpt)
  56. errhandl
  57. errhand
  58. Text2_Change
  59. Form_Click
  60.     saveindex!
  61.     listindex
  62. Dir2_Change
  63. Command5_ClickZ
  64. filesize
  65. FILMAX
  66. tmpstr
  67. FileIOdemo 
  68. ClientNameO
  69. errhand_cmd4
  70. screen
  71. mousepointer
  72. filenam
  73. @    Form_Load
  74. Command5_LostFocus
  75. Command5_DragDrop
  76. Source
  77. Command5_GotFocus
  78.     listcount
  79. Label1_Click
  80. Dir1_MouseDown
  81. Button
  82. Dir1_Click
  83. Command6_Click
  84. form2
  85. File2_Click
  86. Drive1_Change
  87. Dir1_Change
  88. File1_Click
  89. .EXE file - Not viewable
  90. .COM file - Not viewable
  91. .bmp file - Not viewable
  92. .DLL file - Not viewable
  93. .pcx file - Not viewable
  94.  TRUNC "
  95.  byte"
  96.  byte"
  97. Command2_Click
  98. If you like this program, please send"
  99. some money (eg. 25$) to me:"
  100. Nils Segerdahl
  101. rdsgatan 19B"
  102. S-752 30 Upsala, SWEDEN"
  103. TERMINATE?
  104. Picture1_Click
  105. WinSweep by Nils Segerdahl
  106. Command1_Click
  107. No file selected
  108. File wold be truncated!"
  109. Save file 
  110. SAVE File"
  111. Command3_Click
  112. No file selected
  113. Delete file 
  114. Delete File"
  115. Command4_Click
  116. No file selected
  117. Copy "
  118. Copy file"
  119. Copying...."
  120. errhand
  121. Command5_Click
  122. No file selected
  123. File not executable"
  124. FileIOdemo
  125.  Define newline.
  126.  Make a sample random-access file using the Put statement.
  127. Enter a name, using whatever form you like."
  128. Press 'Enter' with no name to conclude entry."
  129. FILEIOX.DAT"
  130.  Get user input.
  131.  Write to file.u
  132.  Get user input.
  133.  Read the sample random-access file using the Get statement.
  134.  Check if records exist.
  135. Your file contains no names.
  136. Your file contains the following names:"
  137.  Read from file.
  138.  Close file.
  139. Choose OK to remove the created test file.
  140.  Display message.m
  141. FILEIOX.DAT"
  142.  Remove file from disk.e
  143. Form_Load
  144. Command6_Click
  145.